00010	BEGIN "SAY"
00020	DEFINE ⊂="COMMENT";
00030	⊂ To say utterance on the speaker if ESC 4U has been typed;
00040	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00050	
00060	REQUIRE "PLAY.REL" LOAD_MODULE;
00070	REQUIRE "IO.REL[X,ALS]" LIBRARY;
00080	REQUIRE "SUIO.REL[X,ALS]" LIBRARY;
00090	REQUIRE "LIB.REL[NET,NJM]" LIBRARY;
00100	EXTERNAL FORTRAN PROCEDURE FMAIN;
00110	INTEGER PP,CHAN1,EOF,BRCHR,COUNT; STRING READ; BOOLEAN ER;
00115	INTEGER SEGNAM;
00120	
00130	
00140	LABEL STARTP;
00150	
00155	CHAN1←1;
00160	STDBRK(1);
00170	STARTP:
00172	OUTSTR("CR TO START"&CRLF);
00175	⊂ INCHWL; OUTSTR("READY TO RUN"&CRLF);
00180	CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,1,0,10,BRCHR,EOF);
00190	LOOKUP(CHAN1,"NUMBER.TMP",ER);
00195	OUTSTR("FILE IS OPEN"&CRLF);
00197	OUTSTR("ER CONTAINS "&COS(ER)&CRLF);
00200	IF ER THEN BEGIN
00210	  OUTSTR("Type file number (CR for 1) ");
00220	  READ←INCHWL;
00230	  IF READ="" THEN PP←1 ELSE PP←CVD(READ);
00240	  END ELSE BEGIN
00250	  PP←CVD(INPUT(CHAN1,1));
00252	⊂  RENAME(CHAN1,NULL,0,0);
00255	OUTSTR("PP= "&CVS(PP)&CRLF);
00260	  CLOSE(CHAN1);
00270	  END;
00275	OUTSTR("READY TO CALL FMAIN(PP)"&CRLF);
00278	⊂ PTOSTR(0,"K"&CRLF);
00284	START_CODE '047000400037; MOVEM 0,SEGNAM; '047040400017; END;
00290	  FMAIN(PP);
00315	START_CODE MOVE 0,SEGNAM; '047000400016; JFCL; END;
00340	 CALL(0,"EXIT");
00400	END "SAY";